Internet Pratica/IPRAT_01.iso/ASP/ASPapp Portal/content.asp

Text File | 2002-03-12 | 12.9 KB | 462 lines

<!-- #include file="i_utils.asp" -->
<%
%>
<%
    dim keywords
    dim search_sql
    dim articles
    dim CatID
    dim ContentID
    dim user_id
    dim Author
    dim DateAdded
    dim DownloadURL
    dim FileName
    dim LongDesc
    dim RelatedURL
    dim ShortDesc
    dim Title
    dim Cat
    dim detail_content_sql
    dim ContentTypeID
    dim ContentType
    dim view_content_sql

sub request_search
''' request expected input parameters for this form
    keywords = request("keywords")
end sub
sub request_detail_content
''' request expected input parameters for this form
    CatID = request("CatID")
    ContentID = request("ContentID")
    user_id = request("user_id")
    Author = request("Author")
    DateAdded = request("DateAdded")
    DownloadURL = request("DownloadURL")
    FileName = request("FileName")
    LongDesc = request("LongDesc")
    RelatedURL = request("RelatedURL")
    ShortDesc = request("ShortDesc")
    Title = request("Title")
    Cat = request("Cat")
end sub
sub request_view_content
''' request expected input parameters for this form
    ContentID = request("ContentID")
    ContentTypeID = request("ContentTypeID")
    CatID = request("CatID")
    Author = request("Author")
    ContentType = request("ContentType")
    Title = request("Title")
    DateAdded = request("DateAdded")
    ShortDesc = request("ShortDesc")
end sub

sub validate_search
''' request and validate data entered from this form
    keywords = trim(request("keywords"))
end sub
sub validate_detail_content
''' request and validate data entered from this form
    CatID = trim(request("CatID"))
    ContentID = trim(request("ContentID"))
    user_id = trim(request("user_id"))
    Author = trim(request("Author"))
    DateAdded = trim(request("DateAdded"))
    if DateAdded <> "" AND (not isdate(DateAdded)) then
        error_list.add "484908date","DateAdded must be a valid date (MM/DD/YY)."
        b_error = true
    end if
    DownloadURL = trim(request("DownloadURL"))
    FileName = trim(request("FileName"))
    LongDesc = trim(request("LongDesc"))
    RelatedURL = trim(request("RelatedURL"))
    ShortDesc = trim(request("ShortDesc"))
    Title = trim(request("Title"))
    Cat = trim(request("Cat"))
end sub
sub validate_view_content
''' request and validate data entered from this form
    ContentID = trim(request("ContentID"))
    ContentTypeID = trim(request("ContentTypeID"))
    CatID = trim(request("CatID"))
    Author = trim(request("Author"))
    ContentType = trim(request("ContentType"))
    Title = trim(request("Title"))
    DateAdded = trim(request("DateAdded"))
    if DateAdded <> "" AND (not isdate(DateAdded)) then
        error_list.add "484920date","DateAdded must be a valid date (MM/DD/YY)."
        b_error = true
    end if
    ShortDesc = trim(request("ShortDesc"))
end sub


sub db_select_detail_content
    sql = "SELECT " & _
    "Author, " & _
    "Cats.CatID, " & _
    "ContentID, " & _
    "DateAdded, " & _
    "DownloadURL, " & _
    "FileName, " & _
    "LongDesc, " & _
    "RelatedURL, " & _
    "ShortDesc, " & _
    "Title, " & _
    "user_id, " & _
    "Cat FROM content,Cats" & _
    " WHERE content.CatId = Cats.CatId AND " & _
    "ContentID = " & to_sql(ContentID,"number") & ""
    on error resume next
    set rs = cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    elseif rs.EOF then
        b_results = false
    else
        CatID = rs("CatID")
        ContentID = rs("ContentID")
        user_id = rs("user_id")
        Author = rs("Author")
        DateAdded = rs("DateAdded")
        DownloadURL = rs("DownloadURL")
        FileName = rs("FileName")
        LongDesc = rs("LongDesc")
        RelatedURL = rs("RelatedURL")
        ShortDesc = rs("ShortDesc")
        Title = rs("Title")
        Cat = rs("Cat")
    end if
    rs.Close
    on error goto 0
end sub
sub db_insert_detail_content
    sql = "INSERT INTO content" & _
    "(" & _
    "CatID," & _
    "user_id," & _
    "Author," & _
    "DateAdded," & _
    "DownloadURL," & _
    "FileName," & _
    "LongDesc," & _
    "RelatedURL," & _
    "ShortDesc," & _
    "Title" & _
    ") VALUES (" & to_sql(CatID,"number") & "," & _
    "" & to_sql(user_id,"number") & "," & _
    "" & to_sql(Author,"text") & "," & _
    "" & to_sql(DateAdded,"text") & "," & _
    "" & to_sql(DownloadURL,"text") & "," & _
    "" & to_sql(FileName,"text") & "," & _
    "" & to_sql(LongDesc,"text") & "," & _
    "" & to_sql(RelatedURL,"text") & "," & _
    "" & to_sql(ShortDesc,"text") & "," & _
    "" & to_sql(Title,"text") & ")" & _
    ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.Number <> 0 then
        b_error = true
    else
        set rs = cn.Execute("SELECT @@IDENTITY")
        ContentID = rs(0)
        rs.Close
        set rs = cn.Execute("SELECT @@IDENTITY")
        ContentID = rs(0)
        rs.Close
    end if
    on error goto 0
end sub
sub db_update_detail_content
    sql = "UPDATE content SET " & _
    "CatID = " & to_sql(CatID,"number") & ", " & _
    "user_id = " & to_sql(user_id,"number") & ", " & _
    "Author = " & to_sql(Author,"text") & ", " & _
    "DateAdded = " & to_sql(DateAdded,"text") & ", " & _
    "DownloadURL = " & to_sql(DownloadURL,"text") & ", " & _
    "FileName = " & to_sql(FileName,"text") & ", " & _
    "LongDesc = " & to_sql(LongDesc,"text") & ", " & _
    "RelatedURL = " & to_sql(RelatedURL,"text") & ", " & _
    "ShortDesc = " & to_sql(ShortDesc,"text") & ", " & _
    "Title = " & to_sql(Title,"text") & " WHERE " & _
    "ContentID = " & to_sql(ContentID,"number") & ""
    'response.write sql
    on error resume next
    cn.execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_delete_detail_content
    sql = "DELETE FROM content" & _
    " WHERE " & _
    "ContentID = " & to_sql(ContentID,"number") & ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub
sub db_select_view_content
    if do_search = "1" then
    request_view_content
    view_content_sql = "SELECT " & _
    "content.ContentID, " & _
    "Content.ContentTypeID, " & _
    "Content.CatID, " & _
    "content.Author, " & _
    "ContentTypes.ContentType, " & _
    "content.Title, " & _
    "content.DateAdded, " & _
    "content.ShortDesc FROM (content LEFT JOIN ContentTypes ON content.contenttypeid = ContentTypes.contenttypeid) " & _
    " WHERE (Title LIKE '%" & keywords & "%' OR ShortDesc LIKE '%" & keywords & "%')"
    else
    view_content_sql = "SELECT " & _
    "content.ContentID, " & _
    "Content.ContentTypeID, " & _
    "Content.CatID, " & _
    "content.Author, " & _
    "ContentTypes.ContentType, " & _
    "content.Title, " & _
    "content.DateAdded, " & _
    "content.ShortDesc FROM (content LEFT JOIN ContentTypes ON content.contenttypeid = ContentTypes.contenttypeid) " & _
    "WHERE ContentType = 'Article' OR ContentType = 'Tutorial' OR ContentType = 'Example / Code Snippet'" & _
    ""
    end if
    if request("sortby") <> "" AND inStr(lcase(view_content_sql),"order by") = 0 then view_content_sql = view_content_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_content
    sql = "DELETE FROM Content" & _
    " WHERE " & _
    "ContentTypeID = " & to_sql(ContentTypeID,"number") & ""
    'response.write sql
    on error resume next
    cn.Execute(sql)
    if err.number <> 0 then
        b_error = true
    end if
    on error goto 0
end sub

do_search = request("do_search")
''' request form keys
keywords = request("keywords")
ContentID = request("ContentID")
ContentTypeID = request("ContentTypeID")
''' request action
action = lcase(request("action"))
''' action case handler
select case action

case "select_detail_content"
'  select the requested key record from database
if ContentID <> "" then
    db_select_detail_content
else
    b_error = true
    error_list.add "edit_detail_content", "Specify record to select."
end if


case "insert_detail_content"
'  request form data and insert a new record into database

validate_detail_content
if not b_error then
    db_insert_detail_content
end if



case "update_detail_content"
'  request form data and update an existing database record
validate_detail_content
if not b_error then
if ContentID <> "" then
    db_update_detail_content
else
    b_error = true
    error_list.add "update_detail_content", "Specify record to update."
end if
end if


case "delete_detail_content"
'  delete the requested key database record
if ContentID <> "" then
    db_delete_detail_content
    response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
    b_error = true
    error_list.add "delete_detail_content", "Specify record to delete."
end if

case "display_detail_content"
    display_detail_content = true

end select

'  no action was specified, so handle the default case(s)
if ContentID <> "" then
    db_select_detail_content
    display_detail_content = true
end if
db_select_view_content

%>

<!-- #include file='i_header.asp' -->
<!-- #include file='i_menu.asp' -->


<%
display_errs
display_msg
%>

<table  >
<form name="search" action="content.asp" method="get" >
<tr>
    <td class='labelTD'>search articles //</td>
    <td class='dataTD' width='140' nowrap>
        <input type=text  name="keywords" size="" maxlength="" value="<% =keywords%>"><input class=cmd type=submit name=search value='GO'>
    </td>
</tr>
<input type=hidden name="do_search" value="1">

</form>
</table>


<table class=headerTable>
<tr>
<td class=headerTD>
        <A href='content.asp'>Articles</A>

<% if contenttypeid <> "" then %>
<% set rs = cn.execute("SELECT contenttype from contenttypes where contenttypeid = " & contenttypeid & "") %>
› <A href='content.asp?ContentTypeid=<% =ContentTypeId %>'><% =rs("ContentType") %></A>
<% rs.close %>
<% end if %>


</td>
</tr>
</table>
<! -- only display the detail form when the grid form is not displayed -->
<% if ContentID <> "" OR display_detail_content then %>
<P>
<table class='headerTable'>
<tr>
<td class='headerTD'>
<B><% =Title %></B>
</td>
</tr>
</table>
<table  >
<form name="detail_content" action="content.asp" method="get" >
<tr>
<td><i>by <% =Author %></i></td>
<td align=right><% =Cat %> áá <% =DateAdded %></td>
</tr>
<tr>
<td colspan=2>
<% =LongDesc %>
</td>
</tr>
<tr>
<td colspan=2>
<br>
<% =RelatedURL %>
<% =DownloadURL %>
</td>
</tr>

</form>
</table>

<%end if%>
<! -- only display the grid when the display form is not displayed -->
<% if display_detail_content <> true then %>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_content_sql <> "" then
    cmd.CommandText = view_content_sql
    rs.Filter = ""
    if ContentTypeID <> "" then rs.Filter = "ContentTypeID = " & to_sql(ContentTypeID,"number")
    rs.CursorLocation = 3
    rs.CacheSize = 5
    rs.Open cmd
    if not rs.EOF then
            rs.MoveFirst
            rs.PageSize = 20
            max_count = cInt(rs.PageCount)
            num_recs = rs.RecordCount
            rs.AbsolutePage = page_no
            results = true
    else
        results = false
        rs.Close
    end if
else
    results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
<% =num_recs %> articles found...
</td>
</tr>
</table>
<%

if results = true then

%>

<table  >
<form name="view_content" action="content.asp" method="get" >
<%

do while not rs.EOF and rec_count < rs.Pagesize

':: read db record
on error resume next
ContentID = rs("ContentID")
ContentTypeID = rs("ContentTypeID")
CatID = rs("CatID")
Author = rs("Author")
ContentType = rs("ContentType")
Title = rs("Title")
DateAdded = rs("DateAdded")
ShortDesc = rs("ShortDesc")
on error goto 0

%>
<tr>
    <td>
    <div style="{font-size:11px;font-weight:800;}"><A href='content.asp?contentid=<% =contentid %>'><% =Title %></A></div>
    // by <I><% =Author %></I>, <% =DateAdded %><br>
    // type <I><A href='content.asp?ContentTypeId=<% =ContentTypeId %>'><% =ContentType %></A></I><br>
    <br>
    <% =ShortDesc %>
    <br><br>
    </td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

    no matches were found.

<%

end if

%>

<%
 if max_count > 1 then
%>

<!-- paging footer -->
<TABLE class=HeaderTable >
    <tr>
        <td width="20%" class=HeaderTD>
            <% if page_no > 1 then %>
            <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a>
            <% else %>            <% end if %>        </td>
        <td align=center class=HeaderTD>
            Page
            <% for i = 1 to max_count %>
            <% if i = cint(page_no) then %>
            <b><%=i%></b>
            <% else %>
            <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>
            <% end if %>
            <%next %>
        </td>
        <td align=right width="20%" class=HeaderTD>
            <% if cInt(page_no) < cInt(max_count) then %>
            <a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a>
            <% end if %>
        </td>
    </tr>
</TABLE>
<% end if %>


<%end if%>

<!-- #include file=i_footer.asp -->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>